home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DRIVES.SWG
/
0089_Detect Disk Protected Tab.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-03-03
|
702b
|
29 lines
{
> Didn't work. It only checks if the file is there(???) not if the flo
> write-protected. Did I mis understand your suggestion?
Yes i think we must have got our wires crossed, i thunk i was
replying to a request to see if a file exist, i would have
no reason for telling use the GetFattr to check for a Write
protected disk, that has to be done by getting the Device Statues.
}
Function DiskProtected:Boolean;
Begin
ASm
Mov AH,01;
mov dl, 0; { 0= A:, 1= B: ect }
int $13;
cmp AL, 03;
Jne @No;
Mov AL, True;
Je @done;
@No:
Xor AL,AL;
@Done:
Endl
End;
{ Example: }
if Diskprotected Then Write(' Write protect was used on last operation');